home *** CD-ROM | disk | FTP | other *** search
/ CinE CD 2 / CinE CD ROM 02.iso / pc / cinecd.dir / 00001_Script_1 next >
Text File  |  1995-07-14  |  2KB  |  91 lines
  1. global gNumFilms, gmachine, grootpathname, gseparator, gQTpresent, database
  2. global gfilmsperpage, gpage, gnumpages, gdata, gscale
  3.  
  4. on startmovie
  5.   Init
  6. end startmovie
  7.  
  8. on Init
  9.   global DEBUG
  10.   set DEBUG = 0
  11.   set gscale = 1
  12.   
  13.   --determine machine type
  14.   if the machineType < 256 then
  15.     set gmachine = "mac"
  16.   else
  17.     set gmachine = "pc"
  18.   end if
  19.   
  20.   if (DEBUG) then
  21.     put gmachine
  22.   end if
  23.     
  24.   --define separator for mac/pc
  25.   
  26.   if gmachine = "pc" then
  27.     set gseparator = "\"
  28.   else
  29.     set gseparator = ":"
  30.   end if
  31.   
  32.   -- get the pathname of the projector
  33.   put the pathname into grootpathname
  34.  
  35.   -- read the index file
  36.   if gmachine = "mac" then
  37.     read_index_file ("INDEXMAC.DOC")
  38.     --initRearWindow 
  39.     --Coverdesktop black
  40.   else
  41.     read_index_file ("INDEXPC.DOC")
  42.   end if
  43.   
  44.   makedatabase the number of cast "database"
  45.   
  46.   -- there are 8 posters per index page
  47.   set gfilmsperpage = 8
  48.   
  49.   -- initialize index page number
  50.   set gpage = 1
  51.   
  52.   --determine and set the number of index pages
  53.   set gnumpages = gnumfilms / gfilmsperpage
  54.   if (gnumfilms mod gfilmsperpage) then
  55.     set gnumpages = gnumpages + 1
  56.   end if
  57.   
  58.   --check if Quicktime is present
  59.   
  60.   set gQTpresent = the quicktimepresent
  61.   
  62.   if not gQTpresent then
  63.     alert "Vous devez installer le gestionnaire Quicktime d'Apple Computer Inc. pour pouvoir visualiser les bandes annonces!"
  64.   end if
  65.   
  66.   --read_posters
  67. end Init
  68.  
  69. on read_index_file fname
  70.   put FileIO (mnew, "read", the pathname & fname) into gdata
  71.   if (gdata < 0) then
  72.     alert ("Fichier INDEX non-trouvΘ, au revoir!")
  73.     quit
  74.   end if
  75.   set the text of cast the number of cast "database" = gdata (mreadfile)
  76.   gdata (mdispose)
  77. end read_index_file
  78.  
  79. on read_posters
  80.   put gnumfilms
  81.   repeat with i = 1 to gnumfilms
  82.     set dir = getField (i, 3) 
  83.     set prefix = getField (i, 4)
  84.     set the text of cast "loading" = getField (i, 2)
  85.     
  86.     set mypathname = makepathname (dir, prefix, "A0.PIC")
  87.     
  88.     --readmypict (mypathname, 22+j)
  89.     readmypict (mypathname, 200+i)
  90.   end repeat
  91. end displayposters